home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / texted1a / frmtext2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-15  |  1.7 KB  |  48 lines
  1. VERSION 5.00
  2. Begin VB.Form frmText2 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3375
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   6540
  8.    Icon            =   "frmText2.frx":0000
  9.    LinkTopic       =   "Form1"
  10.    MDIChild        =   -1  'True
  11.    ScaleHeight     =   3375
  12.    ScaleWidth      =   6540
  13.    Begin VB.TextBox txtDoc2 
  14.       Height          =   3375
  15.       Left            =   0
  16.       MultiLine       =   -1  'True
  17.       TabIndex        =   0
  18.       Top             =   0
  19.       Width           =   6495
  20.    End
  21. Attribute VB_Name = "frmText2"
  22. Attribute VB_GlobalNameSpace = False
  23. Attribute VB_Creatable = False
  24. Attribute VB_PredeclaredId = True
  25. Attribute VB_Exposed = False
  26. Private Sub rtfText_SelChange()
  27. '    fMainForm.tbToolBar.Buttons("Bold").Value = IIf(rtfText.SelBold, tbrPressed, tbrUnpressed)
  28. '    fMainForm.tbToolBar.Buttons("Italic").Value = IIf(rtfText.SelItalic, tbrPressed, tbrUnpressed)
  29. '    fMainForm.tbToolBar.Buttons("Underline").Value = IIf(rtfText.SelUnderline, tbrPressed, tbrUnpressed)
  30. End Sub
  31. Private Sub Form_Load()
  32.      fMainForm.tbToolBar.Buttons("Bold").Enabled = False
  33.      fMainForm.tbToolBar.Buttons("Italic").Enabled = False
  34.      fMainForm.tbToolBar.Buttons("Underline").Enabled = False
  35.     Form_Resize
  36. End Sub
  37. Private Sub Form_Resize()
  38.     On Error Resume Next
  39.     txtDoc2.Move 100, 100, Me.ScaleWidth - 200, Me.ScaleHeight - 200
  40. '    txtDoc2.RightMargin = txtDoc2.Width - 400
  41. End Sub
  42. Private Sub Form_Activate()
  43.     fMainForm.StatusBar1.Panels(3).Text = Me.Caption
  44.     fMainForm.tbToolBar.Buttons(9).Enabled = False
  45.     fMainForm.tbToolBar.Buttons(10).Enabled = False
  46.     fMainForm.tbToolBar.Buttons(11).Enabled = False
  47. End Sub
  48.